-- card: 4851 from stack: in.0
-- bmap block id: 2517
-- flags: 4000
-- background id: 3091
-- name: Index


-- part 1 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=126 top=266 right=315 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XCMDS
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  controlButton "XCMDs"

end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=126 top=314 right=335 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  listButton "XCMDs"

end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=61 top=266 right=315 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XFCNs
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  controlButton "XFCNs"

end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=61 top=314 right=335 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  listButton "XFCNs"

end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=191 top=266 right=315 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 29007 / 29007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functions
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  controlButton "Functions"

end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=191 top=314 right=335 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  listButton "Functions"

end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=256 top=314 right=335 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  listButton "Scripts"
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=256 top=266 right=315 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 1060 / 1060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scripts
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  controlButton "Scripts"

end mouseUp



-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=175 top=79 right=95 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Issue


-- part 28 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=175 top=97 right=113 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date


-- part 31 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=89 top=121 right=144 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Link this stack...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  put "You can link another stack to the Developer Stack"
  answer "This will install a button in another stack." with "Cancel" or "OK"
  if it is "Cancel" then
    beep
    hide message window
    exit mouseup
  end if

  put "Please select the destination stack"
  put filename("STAK") into thefile
  if thefile is empty then
    beep
    hide message window
    exit mouseup
  end if

  set cursor to 4
  put "Thank you.  Please wait..."
  choose button tool
  put the long name of this stack into gohere
  delete word 1 of gohere
  put "go to " before gohere
  put "on mouseup" into first line of buttonscript
  put "visual barn door close to black" into second line of buttonscript
  put "visual barn door open to gray" into third line of buttonscript
  put "visual barn door close" into fourth line of buttonscript
  put gohere into fifth line of buttonscript
  put "end mouseup" into sixth line of buttonscript

  set visible of background button "Developer Stack" to true
  click at loc of background button "Developer Stack"
  domenu copy button
  set visible of background button "Developer Stack" to false
  choose browse tool
  set cursor to 4

  push card
  set lockmessages to true
  go to thefile
  set cursor to 3
  put "Just click where you want the button placed."
  repeat while the mouseclick is false
  end repeat
  set cursor to 0
  put "Thank you.  Please wait..."
  put the Mouseloc into PutItHere
  domenu paste button
  set loc of button "Developer Stack" to PutItHere
  set the script of button "Developer Stack" to buttonscript

  choose browse tool
  pop card
  set lockmessages to false
  hide message window

end mouseUp



-- part 34 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=328 top=226 right=240 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: size2
----- HyperTalk script -----
on mouseup
  domenu "compact stack"
  put the size of this stack into card field "StackSize"
  put the freesize of this stack into card field "Wasted"
end mouseup


-- part 35 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=404 top=226 right=240 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Wasted


-- part 36 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=404 top=213 right=227 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: StackSize


-- part 37 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=328 top=213 right=227 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: size1
----- HyperTalk script -----
on mouseup
  put the size of this stack into card field "StackSize"
  put the freesize of this stack into card field "Wasted"
end mouseup


-- part 39 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=320 top=314 right=335 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  listButton "Buttons"
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=320 top=266 right=315 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttons
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  controlButton "Buttons"

end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=385 top=266 right=315 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 13182 / 13182
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reserved1
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  global badclick
  put badclick+1 into badclick
  beep
  if badclick <4 then
    answer "This is reserved for future expansion"
  else
    answer "Now cut that out!"
  end if
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=449 top=266 right=315 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 13182 / 13182
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reserved2
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  global badclick
  put badclick+1 into badclick
  beep
  if badclick <4 then
    answer "This is reserved for future expansion"
  else
    answer "Now cut that out!"
  end if
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=385 top=314 right=335 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  listButton "Reserved1"
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=449 top=314 right=335 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  listButton "Reserved2"
end mouseUp



-- part 53 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=288 top=76 right=209 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 
----- HyperTalk script -----
on mousewithin
  if the OptionKey is down then

    if the locktext of the target is true then
      put true into DidUnlock
      set locktext of target to false
    else
      put false into DidUnlock
    end if

    set the cursor to 2
    repeat while (the OptionKey is down) and (item 1 of the rect of target <= item 1 of the mouseLoc) and (item 1 of the mouseLoc <= item 3 of the rect of target) and (item 2 of the rect of target <= item 2 of the mouseLoc) and (item 2 of the mouseLoc <= item 4 of the rect of target)
      if the Mouse is down then
        click at the MouseLoc
        click at the ClickLoc
        if the selection = "asterisk" then
          play boing
          answer "Yes, this IS an example!"
        else
          if the selection = "bill" then
            show button "bill"
          else
            beep
            answer "Do you see any asterisk there?!!!"
          end if
        end if
        click at -1,-1
      end if
    end repeat

    if DidUnlock then
      set the locktext of the target to true
    end if
  end if
end mousewithin

on mouseup
end mouseup



-- part 55 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=242 top=83 right=120 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 21240 / 21240
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bill
----- HyperTalk script -----
on mouseUp
  play boing
  answer "Hey! Don't click on his head!!"
  hide the target
end mouseUp



-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=59 top=149 right=238 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 58 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=75 right=118 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual iris open to gray
  visual iris close to black
  visual iris open to gray
  visual iris close
  go background information
end mouseUp



-- part 59 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=120 right=163 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual barn door close to black
  visual barn door open
  go back
end mouseUp



-- part 60 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=165 right=208 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  go home
end mouseUp



-- part 61 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=210 right=253 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  domenu "open stack..."
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=255 right=298 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Launch Application
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  visual venetian blinds to gray
  visual venetian blinds to black
  visual venetian blinds to gray
  visual venetian blinds
  go to background "Mini Hyperstation"
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=299 right=342 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 21786 / 21786
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus On
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  If the short name of the target is "Menus On" then
    set the name of the target to "Menus Off"
    show menubar
  else
    set the name of the target to "Menus On"
    hide menubar
  end if
end mouseUp



-- part 22 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=15 top=206 right=315 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: XFCNs


-- part 7 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=79 top=206 right=315 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: XCMDs


-- part 23 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=144 top=206 right=315 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Functions


-- part 48 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=209 top=206 right=315 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Scripts


-- part 49 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=273 top=206 right=315 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Buttons


-- part 50 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=338 top=206 right=315 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Reserved1


-- part 51 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=402 top=206 right=315 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Reserved2


-- part contents for card part 7
----- text -----
ResCopy,DeProtect,Shutdown,ModResCopy,SoundCapToRes,DoList,
StdFile,ShowMenu,EnableMenu,CheckMenu,
ChangeMenu,PopUpMenu,ImportPict,Talk,

-- part contents for card part 22
----- text -----
FileName,NewFileName,NewMenu,DeleteMenu,FileModDate,MoveFile,RenameFile,DeleteFile,PopUpMenu,

-- part contents for card part 27
----- text -----
1.0

-- part contents for card part 28
----- text -----
12/15/87

-- part contents for card part 34
----- text -----
Wasted

-- part contents for card part 37
----- text -----
Stack Size

-- part contents for card part 36
----- text -----
140704

-- part contents for card part 35
----- text -----
0

-- part contents for card part 48
----- text -----
Scroll Text Button 1,ArrowKeys,ShowScripts,Scrolling Text Button 2,

-- part contents for card part 53
----- text -----
             •••POWER USER TIPS•••

To go to the beginning of a specific section 
(XFCNs, Scripts, etc.) hold down the command key when clicking on the button.

When you see an item in a field followed by an asterisk*, holding the option key and clicking on that word will either give you more information, or take you to a reference.  
(Still waiting for those 'sticky buttons', 
Bill*.)

To look at the script of any button or card, anywhere in the stack, just hold down the option key when you click on it.  To look at the script of a background hold down the shift and option keys when you click in it.

Clicking on the words 'Stack Size' below will give you the current size of the stack, not including the resources.

Clicking on the word 'Wasted' below will compact the stack.

The easiest way to access this stack when you are developing an new stack is to use the 'Link this stack' button and install a link to Developer Stack in your work-in-progress stack.  When you are fininshed with your stack, you can delete the 
'Developer Stack' button.

-Steve

-- part contents for card part 49
----- text -----
Dogear,Self Naming Button,Text Import,

-- part contents for card part 23
----- text -----
LastPathComponent,GetFullPath,NumberofChars,FileAtRoot,VolumeName,

-- part contents for card part 56
----- text -----
This stack is free, and may be re-distributed in its original form with all original messages.  It may not be sold commercially.  It is intended for educational & training purposes only and no warranty is made as to the suitablity of anything included in this stack for any specific purpose.